home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Emperor_ / Emperor / Scripts / StormC.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-10-28  |  1.1 KB  |  41 lines
  1. /* $VER: Emperor_StormC.script 4.5  (7.10.2002)  */
  2. /* written anno 2000-2002 by Matthias Gietzelt   */
  3. /* script to:                                    */
  4. /* + open                                        */
  5. /* + compile                                     */
  6. /* + debug                                       */
  7. /* + run a program by CLI                        */
  8. /* + run a program by StormC                     */
  9.  
  10. PARSE ARG mode file
  11.  
  12. /* defined procedures */
  13. open_project        = 0
  14. compile_project     = 1
  15. debug_project       = 2
  16. execute_by_CLI      = 3
  17. execute_by_StormRun = 4
  18.  
  19. if show('P', "STORMSHELL") then do
  20.    select
  21.       when mode = open_project then do
  22.          address stormshell 'OPEN ' || file || '.ΒΆ'
  23.          end
  24.       when mode = compile_project then do
  25.          address stormshell 'MAKE'
  26.          end
  27.       when mode = debug_project then do
  28.          address stormshell 'DEBUG FILE ' || file || '.c'
  29.          end
  30.       when mode = execute_by_CLI then do
  31.          address command "Run >NIL: " || file
  32.          end
  33.       when mode = execute_by_StormRun then do
  34.          address stormrun 'RUN ' || file
  35.          end
  36.       otherwise nop
  37.    end
  38. end
  39.  
  40. exit
  41.